home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual BASIC 5.0 (Ent. Edition) / Vb5ent Extractor.EXE / VB / SAMPLES / ENTRPRIS / INTRFACE / INTR_CLI.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-11-23  |  2.9 KB  |  101 lines
  1. VERSION 5.00
  2. Begin VB.Form frmClient 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "Class Interface Client"
  6.    ClientHeight    =   1485
  7.    ClientLeft      =   2775
  8.    ClientTop       =   2865
  9.    ClientWidth     =   3345
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    PaletteMode     =   1  'UseZOrder
  13.    ScaleHeight     =   1485
  14.    ScaleWidth      =   3345
  15.    Begin VB.CommandButton cmdClose 
  16.       Caption         =   "Close"
  17.       Default         =   -1  'True
  18.       Height          =   300
  19.       Left            =   645
  20.       TabIndex        =   0
  21.       Top             =   1020
  22.       Width           =   810
  23.    End
  24.    Begin VB.CommandButton cmdUpdate 
  25.       Caption         =   "Update"
  26.       Height          =   300
  27.       Left            =   1860
  28.       TabIndex        =   1
  29.       Top             =   1020
  30.       Width           =   810
  31.    End
  32.    Begin VB.Label labTime 
  33.       BackColor       =   &H00C0C0C0&
  34.       Caption         =   "labTime"
  35.       Height          =   210
  36.       Left            =   2205
  37.       TabIndex        =   5
  38.       Top             =   225
  39.       Width           =   840
  40.    End
  41.    Begin VB.Label labDate 
  42.       BackColor       =   &H00C0C0C0&
  43.       Caption         =   "labDate"
  44.       Height          =   210
  45.       Left            =   720
  46.       TabIndex        =   4
  47.       Top             =   225
  48.       Width           =   840
  49.    End
  50.    Begin VB.Label lab1 
  51.       BackColor       =   &H00C0C0C0&
  52.       Caption         =   "Time:"
  53.       Height          =   270
  54.       Index           =   1
  55.       Left            =   1725
  56.       TabIndex        =   3
  57.       Top             =   225
  58.       Width           =   450
  59.    End
  60.    Begin VB.Label lab1 
  61.       BackColor       =   &H00C0C0C0&
  62.       Caption         =   "Date:"
  63.       Height          =   270
  64.       Index           =   0
  65.       Left            =   255
  66.       TabIndex        =   2
  67.       Top             =   225
  68.       Width           =   465
  69.    End
  70. Attribute VB_Name = "frmClient"
  71. Attribute VB_GlobalNameSpace = False
  72. Attribute VB_Creatable = False
  73. Attribute VB_TemplateDerived = False
  74. Attribute VB_PredeclaredId = True
  75. Attribute VB_Exposed = False
  76. Private Sub cmdClose_Click()
  77.   Unload frmClient
  78. End Sub
  79. Private Sub cmdUpdate_Click()
  80. Dim objInterface As Object
  81. Dim objServer As Object
  82. On Error GoTo cuError
  83. 'Use Indirect Inteface to maintain project integrity of class instances
  84. Set objInterface = CreateObject("InterfaceProj.ServerInterface")
  85. Set objServer = objInterface.objGetClassInstance("InterfaceDateClass")
  86. labDate.Caption = objServer.GetDate
  87. Set objServer = Nothing
  88. Set objServer = objInterface.objGetClassInstance("InterfaceTimeClass")
  89. labTime.Caption = objServer.GetTime
  90. GoTo cuExit
  91. cuError:
  92. MsgBox Error$
  93. Resume cuExit
  94. cuExit:
  95. Set objServer = Nothing
  96. Set objInterface = Nothing
  97. End Sub
  98. Private Sub Form_Load()
  99.   cmdUpdate_Click
  100. End Sub
  101.